Option Explicit
Sub C_Sample031()
    Dim myRng  As Range
    Set myRng = Range("A1")					'Nxs
    myRng.EntireRow.Hidden = True 			'ܦC
    myRng.EntireColumn.Hidden = True			'
    MsgBox "wNC]wܡAsܡC"
    myRng.EntireRow.Hidden = False				'ܦC
    myRng.EntireColumn.Hidden = False 			'
    Set myRng = Nothing						'
End Sub

